﻿Public Class Infanteria : Inherits UnidadBase

    Protected Const FUERZA_INF = FUERZA_BASE
    Protected Const ATAQUE_INF = ATAQUE_BASE
    Protected Const VELOCIDAD_INF = VELOCIDAD_BASE
    Protected Const VIDA_INF = VIDA_BASE
    Protected Const COSTE_INF = COSTE_BASE
    Protected Const DEFENSA_INF = DEFENSA_BASE
    Protected Const DISCIPLINA_INF = DISCIPLINA_BASE
    Protected Const TAMAÑO_INF = TAMAÑO_BASE


    Public Sub New()
        Me.Vida = VIDA_INF
        Me.Velocidad = VELOCIDAD_INF
        Me.Ataque = ATAQUE_INF
        Me.Coste = COSTE_INF
        Me.Defensa = DEFENSA_INF
        Me.Disciplina = DISCIPLINA_INF
        Me.Fuerza = FUERZA_INF
        Me.Tamaño = TAMAÑO_INF
    End Sub

End Class
